00100	VARIABLE /X,/Y,/Z;
00200	COMPILE;
00300	INSTRUMENT LL1;
00400	LINEN(P4,P5,P6,P7,P8,X);
00500	COSCIL(U1,MAG*P3,P10);
00600	OUTA←OUTA+U2;END;
00700	INSTRUMENT LL2;
00800	LINEN(P4,P5,P6,P7,P8,Y);
00900	COSCIL(U1,MAG*P3,P10);
01000	OUTA←OUTA+U2;END;
01100	INSTRUMENT LL3;
01200	LINEN(P4,P5,P6,P7,P8,Z);
01300	COSCIL(U1,MAG*P3,P10);
01400	OUTA←OUTA+U2;END;
01500	FINISH;
01600	ARRAY F1,F2(512);
01700	SYNTH(F1);1 1  2 .3  3 .3  5 .1  999;
01800	SEG(F2);0 1  1 25  1 50   0 75  0 100;
01900	
02000	PLAY;LL1 0 .3 A*2 650 .1 .1 .3 F2 0 F1;LL2 .1,,C;LL3 .2,,D/4;FINISH;